home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / samples / calcref.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  522 b   |  32 lines
  1.  
  2. ;program to calculate monitor refresh rate...
  3.  
  4. Graphics 640,480
  5.  
  6. fps#=CalcRefresh()
  7. ms#=1000.0/fps
  8.  
  9. Text 0,0,"Frame freq:"+fps+" period:"+ms+"ms"
  10.  
  11. WaitKey
  12.  
  13. Function CalcRefresh#()
  14.  
  15.     Local time,t_time,elapsed,t_elapsed,cnt,sum
  16.  
  17.     time=MilliSecs()
  18.     Repeat
  19.         t_time=time
  20.         time=MilliSecs()
  21.         elapsed=time-t_time
  22.         If Abs( elapsed-t_elapsed )<2
  23.             cnt=cnt+1:sum=sum+elapsed
  24.             If cnt=60 Then Return 1000.0/sum*cnt
  25.         Else
  26.             cnt=0:sum=0
  27.             t_elapsed=elapsed
  28.         EndIf
  29.         Flip
  30.     Forever
  31.     
  32. End Function